home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / dsystem / making.bas < prev    next >
BASIC Source File  |  1993-11-30  |  9KB  |  336 lines
  1. 10000 '
  2. 10010 *初期設定
  3. 10020 '
  4. 10030 SCREEN@0
  5. 10040 SCREEN 0
  6. 10050 COLOR 7,0,7,0
  7. 10060 CONSOLE 0,24,2
  8. 10070 CLS
  9. 10080 CLEAR ,,,,,1024*300
  10. 10090 STAND_WA=7
  11. 10100 DEF FONT "システム   12ﾄﾞｯﾄ"
  12. 10110 '
  13. 10120 FBAI=12/16
  14. 10130 WX=90
  15. 10140 WY=116
  16. 10150 KASORU_C=15
  17. 10160 NO=1
  18. 10170 '
  19. 10180 SYMBOL (90,96),"名前",FBAI,FBAI
  20. 10190 LOCATE 15,5:LINE INPUT NA$(1)
  21. 10200 CLS 4
  22. 10210 SYMBOL (120,96),NA$(1),FBAI,FBAI
  23. 10220 '
  24. 10230 LINE (WX,WY)-(WX+84,WY+92),PSET,%WIN_C,BF,%WININ_C
  25. 10240 SYMBOL (WX+26,WY+10),"器用度",FBAI,FBAI
  26. 10250 SYMBOL (WX+26,WY+30),"敏捷度",FBAI,FBAI
  27. 10260 SYMBOL (WX+26,WY+50),"筋力"  ,FBAI,FBAI
  28. 10270 SYMBOL (WX+26,WY+70),"生命力",FBAI,FBAI
  29. 10280 SYMBOL (WX+26,WY+90),"知力"  ,FBAI,FBAI
  30. 10290 SYMBOL (WX+26,WY+110),"精神力",FBAI,FBAI
  31. 10300 '
  32. 10310 WHILE ENDLESS=0
  33. 10320 '
  34. 10330 IF NO=<0 THEN NO=6
  35. 10340 IF NO=>7 THEN NO=1
  36. 10350 IF NO=1 THEN CY=20
  37. 10360 IF NO=2 THEN CY=40
  38. 10370 IF NO=3 THEN CY=60
  39. 10380 IF NO=4 THEN CY=80
  40. 10390 IF NO=5 THEN CY=100
  41. 10400 IF NO=6 THEN CY=120
  42. 10410 '
  43. 10420 SYMBOL (WX+6,WY+CY),"▽",FBAI,FBAI,%KASORU_C,1
  44. 10430 WAIT STAND_WA:IN$=INKEY$
  45. 10440 IF IN$="" THEN *WENDER
  46. 10450 IF ASC(IN$)=30 THEN NO=NO-1
  47. 10460 IF ASC(IN$)=31 THEN NO=NO+1
  48. 10470 IF ASC(IN$)=28 THEN
  49. 10480   IF NO=1 THEN
  50. 10490     KIY(1) =KIY(1)+1
  51. 10500   IF NO=2 THEN BIN(1) =BIN(1)+1
  52. 10510   IF NO=3 THEN KIN(1) =KIN(1)+1
  53. 10520   IF NO=4 THEN SEIM(1)=SEIM(1)+1
  54. 10530   IF NO=5 THEN TIR(1) =TIR(1)+1
  55. 10540   IF NO=6 THEN SEIS(1)=SEIS(1)+1
  56. 10550   BONUS=BONUS-1
  57. 10560 ENDIF
  58. 10570 IF ASC(IN$)=29 THEN
  59. 10580   IF NO=1 THEN KIY(1) =KIY(1)-1
  60. 10590   IF NO=2 THEN BIN(1) =BIN(1)-1
  61. 10600   IF NO=3 THEN KIN(1) =KIN(1)-1
  62. 10610   IF NO=4 THEN SEIM(1)=SEIM(1)-1
  63. 10620   IF NO=5 THEN TIR(1) =TIR(1)-1
  64. 10630   IF NO=6 THEN SEIS(1)=SEIS(1)-1
  65. 10640   BONUS=BONUS+1
  66. 10650 ENDIF
  67. 10660 '
  68. 10670 IF KIY(1)<=0  THEN KIY(1)=KIY(1)+1  :BONUS=BONUS-1
  69. 10680 IF BIN(1)<=0  THEN BIN(1)=BIN(1)+1  :BONUS=BONUS-1
  70. 10690 IF KIN(1)<=0  THEN KIN(1)=KIN(1)+1  :BONUS=BONUS-1
  71. 10700 IF SEIM(1)<=0 THEN SEIM(1)=SEIM(1)+1:BONUS=BONUS-1
  72. 10710 IF TIR(1)<=0  THEN TIR(1)=TIR(1)+1  :BONUS=BONUS-1
  73. 10720 IF SEIS(1)<=0 THEN SEIS(1)=SEIS(1)+1:BONUS=BONUS-1
  74. 10730 '
  75. 10740 IF BONUS=0 THEN ENDLESS=1
  76. 10750 '
  77. 10760 IF ASC(IN$)=13 THEN ENDLESS=1
  78. 10770 '
  79. 10780 SYMBOL (WX+6,WY+CY),"▽",FBAI,FBAI,%WININ_C,1
  80. 10790 '
  81. 10800 *WENDER
  82. 10810 WEND
  83. 10820 '
  84. 10830 ' HP MP 計測
  85. 10840 '
  86. 10850 MHP=SEIM(1)*4
  87. 10860 MMP=SEIS(1)*4
  88. 10870 HP=MHP
  89. 10880 MP=MMP
  90. 10890 SYMBOL (WX+26,WY+130),"ＨＰ"+AKCNV$(STR$(HP)),FBAI,FBAI
  91. 10900 SYMBOL (WX+26,WY+150),"ＭＰ"+AKCNV$(STR$(MP)),FBAI,FBAI
  92. 10910 '
  93. 10920 IID(1,1)=3
  94. 10930 IID(1,2)=100
  95. 10940 AID(1)  =3
  96. 10950 '
  97. 10960 *許可
  98. 10970 '
  99. 10980 SYMBOL (WX+26,WY+170),"よろしいですか（Ｙ／Ｎ）",FBAI,FBAI
  100. 10990 '
  101. 11000 WHILE INKEY$=""
  102. 11010 WEND
  103. 11020 '
  104. 11030 INK$=INKEY$
  105. 11040 IF INK$="Y" OR INK$="y" THEN *セーバ
  106. 11050 IF INK$="N" OR INK$="n" THEN *初期設定
  107. 11060 GOTO *許可
  108. 11070 ''''
  109. 11080 '
  110. 11090 *セーバ
  111. 11100 '
  112. 11110 DIM FIRST%(400)
  113. 11120 '
  114. 11130 GOSUB *ファースト
  115. 11140 KILL  "CS\CARMINE1.SAV"
  116. 11150 SAVE@ "CS\CARMINE1.SAV",FIRST%
  117. 11160 KILL  "CS\CARMINE2.SAV"
  118. 11170 OPEN "O",#1,"CS\CARMINE2.SAV"
  119. 11180 PRINT #1,NA$(1)+","+NA$(2)+","+NA$(3)+","+NA$(4)+","+NA$(5)+","+NA$(6)
  120. 11190 CLOSE
  121. 11200 ERASE FIRST%
  122. 11210 '
  123. 11220 IF KEIZOKU=0 THEN
  124. 11230   KEIZOKU=0
  125. 11240   END
  126. 11250 ENDIF
  127. 11260 IF KEIZOKU=1 THEN
  128. 11270   KEIZOKU=0
  129. 11280   IF SCR(1)=1 THEN SCR(1)=0 ELSE IF SCR(1)=0 THEN SCR(1)=1
  130. 11290   IF SCR(1)=0 THEN SCR(3)=1 ELSE IF SCR(1)=1 THEN SCR(3)=0
  131. 11300   CHAIN "CAMP.BAS",,ALL
  132. 11310 ENDIF
  133. 11320 '
  134. 11330 *ファースト
  135. 11340 '
  136. 11350 FIRST%(1) =MHP(1)
  137. 11360 FIRST%(2) =HP(1)
  138. 11370 FIRST%(3) =MMP(1)
  139. 11380 FIRST%(4) =MP(1)
  140. 11390 FIRST%(5) =KIY(1)
  141. 11400 FIRST%(6) =BIN(1)
  142. 11410 FIRST%(7) =KIN(1)
  143. 11420 FIRST%(8) =SEIM(1)
  144. 11430 FIRST%(9) =TIR(1)
  145. 11440 FIRST%(10)=SEIS(1)
  146. 11450 FIRST%(11)=IID(1,1)
  147. 11460 FIRST%(12)=IID(1,2)
  148. 11470 FIRST%(13)=IID(1,3)
  149. 11480 FIRST%(14)=IID(1,4)
  150. 11490 FIRST%(15)=IID(1,5)
  151. 11500 FIRST%(16)=IID(1,6)
  152. 11510 FIRST%(17)=IID(1,7)
  153. 11520 FIRST%(18)=IID(1,8)
  154. 11530 FIRST%(19)=IID(1,9)
  155. 11540 FIRST%(20)=IID(1,10)
  156. 11550 FIRST%(21)=IID(1,11)
  157. 11560 FIRST%(22)=IID(1,12)
  158. 11570 FIRST%(23)=AID(1)
  159. 11580 FIRST%(24)=KIYEXP(1)
  160. 11590 FIRST%(25)=BINEXP(1)
  161. 11600 FIRST%(26)=KINEXP(1)
  162. 11610 FIRST%(27)=SEIMEXP(1)
  163. 11620 FIRST%(28)=MHPEXP(1)
  164. 11630 FIRST%(29)=DEAD(1)
  165. 11640 '
  166. 11650 FIRST%(51)=MHP(2)
  167. 11660 FIRST%(52)=HP(2)
  168. 11670 FIRST%(53)=MMP(2)
  169. 11680 FIRST%(54)=MP(2)
  170. 11690 FIRST%(55)=KIY(2)
  171. 11700 FIRST%(56)=BIN(2)
  172. 11710 FIRST%(57)=KIN(2)
  173. 11720 FIRST%(58)=SEIM(2)
  174. 11730 FIRST%(59)=TIR(2)
  175. 11740 FIRST%(60)=SEIS(2)
  176. 11750 FIRST%(61)=IID(2,1)
  177. 11760 FIRST%(62)=IID(2,2)
  178. 11770 FIRST%(63)=IID(2,3)
  179. 11780 FIRST%(64)=IID(2,4)
  180. 11790 FIRST%(65)=IID(2,5)
  181. 11800 FIRST%(66)=IID(2,6)
  182. 11810 FIRST%(67)=IID(2,7)
  183. 11820 FIRST%(68)=IID(2,8)
  184. 11830 FIRST%(69)=IID(2,9)
  185. 11840 FIRST%(70)=IID(2,10)
  186. 11850 FIRST%(71)=IID(2,11)
  187. 11860 FIRST%(72)=IID(2,12)
  188. 11870 FIRST%(73)=AID(2)
  189. 11880 FIRST%(74)=KIYEXP(2)
  190. 11890 FIRST%(75)=BINEXP(2)
  191. 11900 FIRST%(76)=KINEXP(2)
  192. 11910 FIRST%(77)=SEIMEXP(2)
  193. 11920 FIRST%(78)=MHPEXP(2)
  194. 11930 FIRST%(79)=DEAD(2)
  195. 11940 '
  196. 11950 FIRST%(101)=MHP(3)
  197. 11960 FIRST%(102)=HP(3)
  198. 11970 FIRST%(103)=MMP(3)
  199. 11980 FIRST%(104)=MP(3)
  200. 11990 FIRST%(105)=KIY(3)
  201. 12000 FIRST%(106)=BIN(3)
  202. 12010 FIRST%(107)=KIN(3)
  203. 12020 FIRST%(108)=SEIM(3)
  204. 12030 FIRST%(109)=TIR(3)
  205. 12040 FIRST%(110)=SEIS(3)
  206. 12050 FIRST%(111)=IID(3,1)
  207. 12060 FIRST%(112)=IID(3,2)
  208. 12070 FIRST%(113)=IID(3,3)
  209. 12080 FIRST%(114)=IID(3,4)
  210. 12090 FIRST%(115)=IID(3,5)
  211. 12100 FIRST%(116)=IID(3,6)
  212. 12110 FIRST%(117)=IID(3,7)
  213. 12120 FIRST%(118)=IID(3,8)
  214. 12130 FIRST%(119)=IID(3,9)
  215. 12140 FIRST%(120)=IID(3,10)
  216. 12150 FIRST%(121)=IID(3,11)
  217. 12160 FIRST%(122)=IID(3,12)
  218. 12170 FIRST%(123)=AID(3)
  219. 12180 FIRST%(124)=KIYEXP(3)
  220. 12190 FIRST%(125)=BINEXP(3)
  221. 12200 FIRST%(126)=KINEXP(3)
  222. 12210 FIRST%(127)=SEIMEXP(3)
  223. 12220 FIRST%(128)=MHPEXP(3)
  224. 12230 FIRST%(129)=DEAD(3)
  225. 12240 '
  226. 12250 FIRST%(151) =MHP(4)
  227. 12260 FIRST%(152) =HP(4)
  228. 12270 FIRST%(153) =MMP(4)
  229. 12280 FIRST%(154) =MP(4)
  230. 12290 FIRST%(155) =KIY(4)
  231. 12300 FIRST%(156) =BIN(4)
  232. 12310 FIRST%(157) =KIN(4)
  233. 12320 FIRST%(158) =SEIM(4)
  234. 12330 FIRST%(159) =TIR(4)
  235. 12340 FIRST%(160)=SEIS(4)
  236. 12350 FIRST%(161)=IID(4,1)
  237. 12360 FIRST%(162)=IID(4,2)
  238. 12370 FIRST%(163)=IID(4,3)
  239. 12380 FIRST%(164)=IID(4,4)
  240. 12390 FIRST%(165)=IID(4,5)
  241. 12400 FIRST%(166)=IID(4,6)
  242. 12410 FIRST%(167)=IID(4,7)
  243. 12420 FIRST%(168)=IID(4,8)
  244. 12430 FIRST%(169)=IID(4,9)
  245. 12440 FIRST%(170)=IID(4,10)
  246. 12450 FIRST%(171)=IID(4,11)
  247. 12460 FIRST%(172)=IID(4,12)
  248. 12470 FIRST%(173)=AID(4)
  249. 12480 FIRST%(174)=KIYEXP(4)
  250. 12490 FIRST%(175)=BINEXP(4)
  251. 12500 FIRST%(176)=KINEXP(4)
  252. 12510 FIRST%(177)=SEIMEXP(4)
  253. 12520 FIRST%(178)=MHPEXP(4)
  254. 12530 FIRST%(179)=DEAD(4)
  255. 12540 '
  256. 12550 FIRST%(201)=MHP(5)
  257. 12560 FIRST%(202)=HP(5)
  258. 12570 FIRST%(203)=MMP(5)
  259. 12580 FIRST%(204)=MP(5)
  260. 12590 FIRST%(205)=KIY(5)
  261. 12600 FIRST%(206)=BIN(5)
  262. 12610 FIRST%(207)=KIN(5)
  263. 12620 FIRST%(208)=SEIM(5)
  264. 12630 FIRST%(209)=TIR(5)
  265. 12640 FIRST%(210)=SEIS(5)
  266. 12650 FIRST%(211)=IID(5,1)
  267. 12660 FIRST%(212)=IID(5,2)
  268. 12670 FIRST%(213)=IID(5,3)
  269. 12680 FIRST%(214)=IID(5,4)
  270. 12690 FIRST%(215)=IID(5,5)
  271. 12700 FIRST%(216)=IID(5,6)
  272. 12710 FIRST%(217)=IID(5,7)
  273. 12720 FIRST%(218)=IID(5,8)
  274. 12730 FIRST%(219)=IID(5,9)
  275. 12740 FIRST%(220)=IID(5,10)
  276. 12750 FIRST%(221)=IID(5,11)
  277. 12760 FIRST%(222)=IID(5,12)
  278. 12770 FIRST%(223)=AID(5)
  279. 12780 FIRST%(224)=KIYEXP(5)
  280. 12790 FIRST%(225)=BINEXP(5)
  281. 12800 FIRST%(226)=KINEXP(5)
  282. 12810 FIRST%(227)=SEIMEXP(5)
  283. 12820 FIRST%(228)=MHPEXP(5)
  284. 12830 FIRST%(229)=DEAD(5)
  285. 12840 '
  286. 12850 FIRST%(251)=MHP(6)
  287. 12860 FIRST%(252)=HP(6)
  288. 12870 FIRST%(253)=MMP(6)
  289. 12880 FIRST%(254)=MP(6)
  290. 12890 FIRST%(255)=KIY(6)
  291. 12900 FIRST%(256)=BIN(6)
  292. 12910 FIRST%(257)=KIN(6)
  293. 12920 FIRST%(258)=SEIM(6)
  294. 12930 FIRST%(259)=TIR(6)
  295. 12940 FIRST%(260)=SEIS(6)
  296. 12950 FIRST%(261)=IID(6,1)
  297. 12960 FIRST%(262)=IID(6,2)
  298. 12970 FIRST%(263)=IID(6,3)
  299. 12980 FIRST%(264)=IID(6,4)
  300. 12990 FIRST%(265)=IID(6,5)
  301. 13000 FIRST%(266)=IID(6,6)
  302. 13010 FIRST%(267)=IID(6,7)
  303. 13020 FIRST%(268)=IID(6,8)
  304. 13030 FIRST%(269)=IID(6,9)
  305. 13040 FIRST%(270)=IID(6,10)
  306. 13050 FIRST%(271)=IID(6,11)
  307. 13060 FIRST%(272)=IID(6,12)
  308. 13070 FIRST%(273)=AID(6)
  309. 13080 FIRST%(274)=KIYEXP(6)
  310. 13090 FIRST%(275)=BINEXP(6)
  311. 13100 FIRST%(276)=KINEXP(6)
  312. 13110 FIRST%(277)=SEIMEXP(6)
  313. 13120 FIRST%(278)=MHPEXP(6)
  314. 13130 FIRST%(279)=DEAD(6)
  315. 13140 '
  316. 13150 FIRST%(300)=FL
  317. 13160 FIRST%(301)=X
  318. 13170 FIRST%(302)=Y
  319. 13180 FIRST%(303)=H
  320. 13190 FIRST%(304)=WA
  321. 13200 FIRST%(305)=ENCMAX
  322. 13210 FIRST%(306)=MESSEGE_WA
  323. 13220 '
  324. 13230 FIRST%(350)=ASC(NA$(3))*ASC(NA$(4))
  325. 13240 FIRST%(351)=ASC(NA$(6))+ASC(NA$(2))
  326. 13250 FIRST%(352)=ASC(NA$(2))+ASC(NA$(6))
  327. 13260 FIRST%(353)=ASC(NA$(4))+ASC(NA$(5))
  328. 13270 FIRST%(354)=ASC(NA$(1))+ASC(NA$(6))
  329. 13280 FIRST%(355)=ASC(NA$(5))*ASC(NA$(3))
  330. 13290 FIRST%(356)=ASC(NA$(2))+ASC(NA$(1))
  331. 13300 FIRST%(357)=ASC(NA$(5))+ASC(NA$(5))
  332. 13310 FIRST%(358)=ASC(NA$(1))*ASC(NA$(2))
  333. 13320 FIRST%(359)=ASC(NA$(3))*ASC(NA$(1))
  334. 13330 '
  335. 13340 RETURN
  336.